home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / EXODUSCS.DSK / SCENARIO COPIER III.bas < prev    next >
BASIC Source File  |  2014-09-09  |  5KB  |  115 lines
  1. 10 DR$(1) = "DRIVE 1":DR$(2) = "DRIVE 2"
  2. 15 CK = 1
  3. 20 VOL(1) = 0:VOL(2) = 2
  4. 30 VOL(4) = 2: REM  FOR INITING
  5. 1000  REM <CTRL-J><CTRL-J>MAIN DRIVER<CTRL-J><CTRL-J>
  6. 1010  TEXT : HOME : INVERSE : PRINT  SPC( 39);: VTAB 1: HTAB 5: PRINT "MAGICSOFT SCENARIO CONVERTER": NORMAL 
  7. 1011  PRINT "<ESC> TO EXIT BACK TO MAIN MENU"
  8. 1014  POKE 35,23
  9. 1015  POKE 34,2
  10. 1016  GOSUB 12000
  11. 1019  HOME 
  12. 1020  VTAB 5: PRINT "        ORIGINAL LAVALITE:";
  13. 1026  VTAB 24: HTAB 20: PRINT VS(RW);"  "
  14. 1030 CK = 0: GOSUB 3000:D1 = DR
  15. 1040  VTAB 15: PRINT "       'PLAY' DISK:";
  16. 1050 CK = 1: GOSUB 3000:D2 = DR
  17. 1060  GOSUB 2000
  18. 1999  GOTO 1019
  19. 2000  REM <CTRL-J><CTRL-J>LOOP COPY PROCESS<CTRL-J><CTRL-J>
  20. 2001  IF D1 = D2  THEN 2020
  21. 2010  VTAB 23: FLASH : PRINT "INSERT BOTH DISKS AS INDICATED ABOVE": PRINT "AND PRESS <RETURN>";: GET A$
  22. 2011  NORMAL 
  23. 2012  IF A$ =  CHR$(27)  THEN 11000
  24. 2015  IF A$ < > CHR$(13)  THEN 2010
  25. 2020  FOR PASS = 0 TO 3
  26. 2025  FOR RW = 1 TO 2
  27. 2026  IF RW = 1  THEN DR = D1
  28. 2027  IF RW = 2  THEN DR = D2
  29. 2028 BH = 31
  30. 2030  IF D1 = D2  THEN  FLASH : VTAB 5 +(RW -1) *10: HTAB 1: PRINT "INSERT";: VTAB 6 +(RW -1) *10: NORMAL : HTAB 1: PRINT "(AND PRESS A KEY)";: GET A$: VTAB 5 +(RW -1) *10: HTAB 1: PRINT "      ";: VTAB 6 +(RW -1) *10: HTAB 1: PRINT "                 ";
  31. 2035  IF A$ =  CHR$(27)  THEN 11000
  32. 2037 VS(1) = 0
  33. 2040  FOR T = (PASS *6) TO (PASS *6) +5
  34. 2050  FOR S = 0 TO 15
  35. 2051 BH = BH +1:TR = T:SE = S
  36. 2055  IF T = 2  AND (S = 2  OR S = 3)  THEN 2080
  37. 2056  IF T = 23  AND (S = 5  OR S = 6)  THEN 2080
  38. 2057  IF T = 0  AND (S < = 4)  THEN 2080
  39. 2070  GOSUB 10000
  40. 2080  NEXT S: NEXT T: NEXT RW
  41. 2090  NEXT PASS
  42. 2099  RETURN 
  43. 3000  REM <CTRL-J><CTRL-J>DRIVE?<CTRL-J><CTRL-J>
  44. 3005 DR = 1
  45. 3010  VTAB 5 +CK *10: HTAB 30: PRINT DR$(1): HTAB 30: PRINT DR$(2)
  46. 3020  VTAB 5 +CK *10 +DR -1: HTAB 30: INVERSE : PRINT DR$(DR): NORMAL 
  47. 3030 A =  PEEK( -16384): IF A <128  THEN 3030
  48. 3031  POKE  -16368,0
  49. 3040  IF A = 141  THEN  RETURN 
  50. 3050  NORMAL : VTAB 5 +CK *10 +DR -1: HTAB 30: PRINT DR$(DR)
  51. 3060  IF A = 136  THEN DR =  ABS(DR -3)
  52. 3070  IF A = 149  THEN DR =  ABS(DR -3)
  53. 3075  IF A = 155  THEN 11000
  54. 3080  GOTO 3020
  55. 4000  REM <CTRL-J><CTRL-J>FIND VERSION<CTRL-J><CTRL-J>
  56. 4005  POKE 12,0
  57. 4010  HOME : VTAB 10
  58. 4020  PRINT "INSERT YOUR": VTAB 12: HTAB 10: PRINT "ORIGINAL EXODUS SCENARIO": HTAB 17: PRINT "SIDE 'B'"
  59. 4025  VTAB 15: HTAB 1: PRINT "(THE ONE YOU PURCHASED FROM ORIGIN)": PRINT : PRINT : PRINT : PRINT "FOR VERSION ANALYZATION.": PRINT : PRINT "PRESS <RETURN> TO CONTINUE:";: GET A$
  60. 4027  IF A$ =  CHR$(27)  THEN 11000
  61. 4028  IF A$ < > CHR$(13)  THEN 4025
  62. 4030 TR = 0:SE = 5:BH = 7 *16:RW = 1:DR = 1:VS(RW) = 0: GOSUB 10100
  63. 4040 VS(2) = 0: IF  PEEK(7 *16 ^3) = 9 *16 +5  THEN VS(2) = 1: IF  PEEK(7 *16 ^3 +1) < >8 *16 +13  THEN VS(2) = 0
  64. 4045  IF  PEEK(12) < >0  THEN 4000
  65. 4047  VTAB 24: HTAB 30: PRINT "VER:"VS(2) +1;
  66. 4050  RETURN 
  67. 10000  REM  <CTRL-J><CTRL-J>RWTS<CTRL-J><CTRL-J>
  68. 10004  POKE 12,0
  69. 10005 SE = SE +VS(RW)
  70. 10007  IF SE <0  THEN SE = SE +16:TR = TR -1
  71. 10008  IF SE >15  THEN SE = SE -16:TR = TR +1
  72. 10015  POKE 6,TR: POKE 7,SE: POKE 8,DR: POKE 9,6 *16: POKE 10,0: POKE 11,BH
  73. 10020  POKE 227,RW
  74. 10022  POKE 5,VOL(RW)
  75. 10025  VTAB 24: HTAB 1: PRINT TR;" ";: HTAB 5: PRINT SE" ";: HTAB 10: PRINT RW" ";: HTAB 15: PRINT BH"   ";
  76. 10026  VTAB 24: HTAB 20: PRINT VS(RW);"  ";
  77. 10030  CALL 32768
  78. 10035 SE = SE -VS(RW)
  79. 10037  IF SE <0  THEN SE = SE +16:TR = TR -1
  80. 10038  IF  PEEK(12) < >0  THEN  VTAB 24: HTAB 1: PRINT  CHR$(7)"DISK ERROR!";
  81. 10040  RETURN 
  82. 10100  REM <CTRL-J>OTHER RWTS<CTRL-J>
  83. 10101  GOTO 10000
  84. 10110  POKE 12,0:SE = SE +VS(RW)
  85. 10120  IF SE <0  THEN SE = SE +16:TR = TR -1
  86. 10125  VTAB 23: HTAB 1: PRINT TR;" ";: HTAB 5: PRINT SE" ";: HTAB 10: PRINT RW" ";: HTAB 15: PRINT BH"   *";
  87. 10130  IF SE >15  THEN SE = SE -16:TR = TR +1
  88. 10140  POKE 6,TR: POKE 7,SE: POKE 8,DR: POKE 9,6 *16: POKE 10,0: POKE 11,BH: POKE 227,RW
  89. 10145  POKE 5,VOL(RW)
  90. 10150  CALL 32768
  91. 10190  IF  PEEK(12) < >0  THEN  VTAB 24: HTAB 1: PRINT  CHR$(7)"DISK ERROR!";
  92. 10199  RETURN 
  93. 11000  REM  <CTRL-J><CTRL-J>MAIN MENU<CTRL-J><CTRL-J>
  94. 11010  PRINT  CHR$(13); CHR$(4)"RUN ECS MAIN MENU"
  95. 12000  REM <CTRL-J><CTRL-J>COPY ROUTINES FROM ORIG<CTRL-J><CTRL-J>
  96. 12010  HOME : VTAB 5: PRINT "THIS COPIER  WILL FIRST COPY ALL": PRINT "NECSSARY CODE FROM YOUR ORIGINAL TO": PRINT "YOUR 'PLAY' DISK."
  97. 12020  PRINT : PRINT "INSERT ORIGINAL EXODUS DISK, SIDE 'B'": PRINT "IN DRIVE 1 AND PRESS <RETURN>";: GET A$
  98. 12030  IF A$ =  CHR$(27)  THEN 11000
  99. 12040  IF A$ < > CHR$(13)  THEN 12010
  100. 12050  REM <CTRL-J><CTRL-J>ANALYZATION IT FIRST<CTRL-J><CTRL-J>
  101. 12060  GOSUB 4030
  102. 12070 VS(1) = VS(2):RW = 1:TR = 23:SE = 5:BH = 7 *16: GOSUB 10100
  103. 12080 SE = 6:BH = 7 *16 +1: GOSUB 10100
  104. 12090 TR = 2:SE = 2:BH = 7 *16 +2: GOSUB 10100:SE = 3:BH = 7 *16 +3: GOSUB 10100
  105. 12092 BH = 7 *16 +4:TEMP = VS(2):VS(1) = 0:VS(2) = 0: FOR S = 0 TO 5:TR = 0:SE = S:RW = 1: GOSUB 10000:BH = BH +1: NEXT S
  106. 12100  HOME : VTAB 10: HTAB 1: PRINT  CHR$(7)"INSERT YOUR 'PLAY' DISK IN DRIVE 1": PRINT "AND PRESS <RETURN>";: GET A$
  107. 12110  IF A$ =  CHR$(27)  THEN 11000
  108. 12120  IF A$ < > CHR$(13)  THEN 12100
  109. 12125 TR = 0:SE = 0:RW = 4:BH = 64: GOSUB 10000
  110. 12127 BH = 7 *16 +4: FOR S = 0 TO 5:TR = 0:SE = S:RW = 2: GOSUB 10000:BH = BH +1: NEXT S
  111. 12128 VS(2) = TEMP:VS(1) = TEMP
  112. 12130 TR = 23:SE = 5:BH = 7 *16:RW = 2: GOSUB 10100:SE = 6:BH = 7 *16 +1: GOSUB 10100
  113. 12140 TR = 2:SE = 2:BH = 7 *16 +2: GOSUB 10100:SE = 3:BH = 7 *16 +3: GOSUB 10100
  114. 12150  RETURN 
  115. 12600  POKE 44033,17: RUN